home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Complementary Applications 2004 February / SGI IRIX 6.5 Complementary Applications 2004 February.iso / dist / cde.idb / usr / dt / share / examples / dtksh / TextDisp1.z / TextDisp1
Encoding:
Text File  |  2003-11-18  |  3.3 KB  |  123 lines
  1. #! /usr/dt/bin/dtksh
  2. #
  3. # TextDisp1
  4. #
  5. # Copyright 2000, Silicon Graphics, Inc.
  6. # ALL RIGHTS RESERVED
  7. # 
  8. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  9. # States.   Use of a copyright notice is precautionary only and does not
  10. # imply publication or disclosure.
  11. #
  12. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  13. # Use, duplication or disclosure by the Government is subject to restrictions
  14. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  15. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  16. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  17. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  18. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  19. #
  20. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  21. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  22. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  23. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  24. # GRAPHICS, INC.
  25. #
  26. ##########################################################################
  27. #  (c) Copyright 1993, 1994 Hewlett-Packard Company    
  28. #  (c) Copyright 1993, 1994 International Business Machines Corp.
  29. #  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
  30. #  (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
  31. #      Novell, Inc.
  32. ##########################################################################
  33.  
  34.  
  35. #
  36. # This sample shell script exercises the commands which enable and disable
  37. # updating in a text widget.  If the update is disabled, and the value of
  38. # the text field is then changed, the text field will not update what is
  39. # shown, until update is again enabled.
  40. #
  41.  
  42. # Pushbutton Callback: enable update in the text widget
  43. EnableUpdate()
  44. {
  45.    XmTextEnableRedisplay $TEXT
  46. }
  47.  
  48. # Pushbutton Callback: disable update in the text widget
  49. DisableUpdate()
  50. {
  51.    XmTextDisableRedisplay $TEXT
  52. }
  53.  
  54. # Pushbutton Callback: changes the text value
  55. ChangeValue1()
  56. {
  57.    XmTextSetString $TEXT "line A
  58. line B
  59. line C
  60. line D
  61. line E
  62. line F
  63. line G"
  64. }
  65.  
  66. # Pushbutton Callback: changes the text value
  67. ChangeValue2()
  68. {
  69.    XmTextSetString $TEXT "line a
  70. line b
  71. line c
  72. line d
  73. line e
  74. line f
  75. line g"
  76. }
  77.  
  78.  
  79. ######################### Create the Main UI #################################
  80.  
  81. XtInitialize TOPLEVEL textDisp1 TextDisp1 "$0" "$@"
  82. XtSetValues $TOPLEVEL allowShellResize:True
  83.  
  84. XmCreateScrolledText TEXT $TOPLEVEL text \
  85.     columns:20 \
  86.     rows:5 \
  87.     editMode:MULTI_LINE_EDIT \
  88.     value:\
  89. "line 1
  90. line 2
  91. line 3
  92. line 4"
  93. XtManageChild $TEXT
  94.  
  95. XtRealizeWidget $TOPLEVEL
  96.  
  97. XtCreateApplicationShell TOPLEVEL2 textDisp1a TopLevelShell
  98.  
  99. XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
  100.          orientation:HORIZONTAL \
  101.          numColumns:2 \
  102.          packing:PACK_COLUMN 
  103.  
  104. XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
  105.     labelString:"Disable Update"
  106. XtAddCallback $PB1 activateCallback "DisableUpdate"
  107.  
  108. XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
  109.     labelString:"Enable Update"
  110. XtAddCallback $PB2 activateCallback "EnableUpdate"
  111.  
  112. XtCreateManagedWidget PB3 pb3 XmPushButton $RC \
  113.     labelString:"Change Value 1"
  114. XtAddCallback $PB3 activateCallback "ChangeValue1"
  115.  
  116. XtCreateManagedWidget PB4 pb4 XmPushButton $RC \
  117.     labelString:"Change Value 2"
  118. XtAddCallback $PB4 activateCallback "ChangeValue2"
  119.  
  120. XtRealizeWidget $TOPLEVEL2
  121.  
  122. XtMainLoop
  123.